Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Комбінаторика.

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Програмного забезпечення (ПЗ)

Інформація про роботу

Рік:
2007
Тип роботи:
Лабораторна робота
Предмет:
Дискретна математика
Група:
ПІ

Частина тексту файла

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ "ЛЬВІВСЬКА ПОЛІТЕХНІКА" Інститут КНІТ Кафедра ПЗ ЗВІТ До лабораторної роботи № 6 На тему: “ Комбінаторика ” З дисципліни : " Дискретна математика" Виконав: ст. гр. ПІ Львів – 2007 Завдання: Задане додатне ціле число n. Розташувати у лексикографічному порядку всі перестановки множини {1,2,…,n}. Побудувати розклад (x+y)5 Відлагодити, скомпілювати і зберегти програму. Оформити звіт про роботу. Текст програми Завдання 1. Program lab6_1; var a:array[1..40] of integer; n,r,i,j,z:integer; Procedure Vvid_r; Begin Write('Vvedit r:'); Readln(r); if (r<0)or(r>n) then begin writeln('ymova',r,'<=',n,' ne vykonuetsya'); vvid_r; end; End; Procedure Vvid_n; Begin Write('Vvedit n:'); Readln(n); if n>0 then vvid_r else begin writeln('Vvedit inshe n'); vvid_n;end; End; Begin vvid_n; for i:=1 to r do begin a[i]:=i; write(a[i]);end; writeln; while i>=1 do begin if i=0 then break; while (a[i]=n-r+i) do begin dec(i);if i=0 then halt;end; a[i]:=a[i]+1;j:=i; while j<r do begin inc(j);a[j]:=a[i]+j-i;end; for z:=1 to r do Write(a[z]);writeln; end; readln; End. Завдання 2. Program l6_2; uses crt; var k,n,C,i,z,x:integer; zn:char; Function koef(var m,n:integer):integer; var c,fctn,fctm,fctn_m,i,j:longint;{fct-factorial} Begin fctn:=1;fctm:=1;fctn_m:=1; For i:=1 to n do fctn:=fctn*i; For i:=1 to m do fctm:=fctm*i; j:=n-m; For i:= 1 to j do fctn_m:=fctn_m*i; c:=fctn div(fctm*fctn_m); koef:=c; End; Begin clrscr; writeln; write('Vvedit n:'); readln(n);z:=-1; write('(x-y)',n,' = '); For k:= 0 to n do begin C:=koef(k,n); z:=z*-1; if z = 1 then zn:='+' else zn:='-'; if x=0 then begin write ('x',n);x:=1;continue;end; if k=n then write(zn,'y',k) else begin if C=1 then write(zn,'x',n-k,'y',k); if k=n then write('y',k) else write(zn,C,'x',n-k,'y',k); end; end; readln; End. Висновок: На цій лабораторній роботі я навчився програмувати комбінаторні формули в середовищі Turbo Pascal.
Антиботан аватар за замовчуванням

01.01.1970 03:01

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини